﻿Public Class frmCambiarContrasena

    Private Sub btnCambiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCambiar.Click

        If txtNuevaContrasena.Text.Trim = "" Or txtRepetir.Text.Trim = "" Then
            MsgBox("Por favor complete todos los campos", MsgBoxStyle.Critical, "Atención")
            Return
        End If

        If Not txtNuevaContrasena.Text = txtRepetir.Text Then
            MsgBox("Verifique que las contraseñas ingresadas sean iguales", MsgBoxStyle.Information, "Atención")
            Return
        End If


        MsgBox("La nueva contraseña ha sido guardada con éxito", MsgBoxStyle.Information, "Atención")


    End Sub

    Private Sub frmCambiarContrasena_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Me.Dispose()
    End Sub

    Private Sub frmCambiarContrasena_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class